| ErrorBoxVisibleActionExecute method |
Applies to
TDUnitDialog
Declaration
Procedure ErrorBoxVisibleActionExecute(Sender: TObject);Implementation
procedure TDUnitDialog.ErrorBoxVisibleActionExecute(Sender: TObject);
begin
with ErrorBoxVisibleAction do
begin
Checked := not Checked;
ErrorBoxSplitter.Visible := Checked;
ErrorBoxPanel.Visible := Checked;
if Checked then
begin
// Solve bugs with Delphi4 resizing with constraints
ErrorBoxSplitter.Top := ErrorBoxPanel.Top-8;
end
end;
End; |
|
|